home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 570 / scsrc20.lzh / HCC.LZH / SUBS_C.C < prev    next >
Encoding:
Text File  |  1991-02-22  |  252 b   |  20 lines
  1. double f_zero = 0.0;
  2. double f_ten = 10.0;
  3. double f_tenth = 0.1;
  4. double f_e10 = 1e10;
  5. double f_em10 = 1e-10;
  6.  
  7. lclr(lp, n)
  8. long *lp;
  9. {
  10.     while (n--)
  11.         *lp++ = 0;
  12. }
  13.  
  14. lcpy(top, frp, n)
  15. long *frp, *top;
  16. {
  17.     while (n--)
  18.         *top++ = *frp++;
  19. }
  20.